import excel "/Users/a/Desktop/大三/计量经济学/作业/作业4/wind/公司信息.xlsx", sheet("Wind资讯") firstrow allstring clear
drop 邮编 上市地点 成立日期 城市
replace 证券代码 = substr(证券代码, 1, 6)
drop in 3255
drop in 3255
sort 证券代码
gen 上市年份 = substr(上市日期,6,9)
destring 上市年份, replace
drop 上市日期
gen 上市至今时间 = 2015 -  上市年份
keep if 上市至今时间 >= 0
gen 东部地区 = 0
replace 东部地区 = 1 if 省份 == "北京" || 省份 == "天津" || 省份 == "河北省" || 省份 == "辽宁省" || 省份 == "上海" || 省份 == "江苏省" || 省份 == "浙江省" || 省份 == "福建省" || 省份 == "山东省" || 省份 == "广东省" || 省份 == "海南省"

gen 中部地区 = 0
replace 中部地区 = 1 if 省份 == "黑龙江省" || 省份 == "吉林省" || 省份 == "山西省" || 省份 == "安徽省" || 省份 == "江西省" || 省份 == "河南省" || 省份 == "湖北省" || 省份 == "湖南省"

drop 省份
save "fin.dta" , replace  
clear 
import excel "/Users/a/Desktop/大三/计量经济学/作业/作业4/wind/公司属性.xlsx", sheet("Wind资讯") firstrow allstring
keep 证券代码 公司属性交易日期20151231
gen 企业属性 = .
replace 企业属性 = 1 if 公司属性交易日期20151231 ==  "中央国有企业" || 公司属性交易日期20151231 == "地方国有企业"
replace 企业属性 = 0 if 公司属性交易日期20151231 == "民营企业"
drop 公司属性交易日期20151231
replace 证券代码 = substr(证券代码, 1, 6)
drop in 3255
drop in 3255
sort 证券代码
save "公司属性.dta" , replace  



clear 
import excel "/Users/a/Desktop/大三/计量经济学/作业/作业4/wind/研发费用.xlsx", sheet("Wind资讯") firstrow allstring
keep 证券代码 研发费用报告期2015年报单位元
gen 研发费用 = 研发费用报告期2015年报单位元
drop in 3245
drop in 3245
destring 研发费用, replace
drop 研发费用报告期2015年报单位元
replace 证券代码 = substr(证券代码, 1, 6)
sort 证券代码
save "研发费用.dta" , replace  


clear
import excel "/Users/a/Desktop/大三/计量经济学/作业/作业4/wind/主营业务收入.xlsx", sheet("Wind资讯") firstrow allstring
keep 证券代码 主营业务收入报告期2015年报报表类型合并报
drop in 3248
drop in 3248
gen 主营业务收入 = 主营业务收入报告期2015年报报表类型合并报
destring 主营业务收入, replace
drop 主营业务收入报告期2015年报报表类型合并报
replace 证券代码 = substr(证券代码, 1, 6)
sort 证券代码
save "主营业务收入.dta" , replace 

clear
import excel "/Users/a/Desktop/大三/计量经济学/作业/作业4/wind/大股东持股比例.xlsx", sheet("Wind资讯") firstrow allstring 
keep 证券代码 大股东持股比例日期20151231大股东排名
drop in 3255
drop in 3255
gen 持股比例 = 大股东持股比例日期20151231大股东排名
destring 持股比例, replace
drop 大股东持股比例日期20151231大股东排名
replace 证券代码 = substr(证券代码, 1, 6)
sort 证券代码
save "大股东持股.dta" , replace  
